function sAudProf = audprof_audprof_example( type )
% return an example auditory profile
% sAudProf : auditory profile
% type : profile type: slope, flat40 or flat50 (optional)
  if nargin < 1
    type = 'slope';
  end
  if ~ischar(type)
    error('The type argument must be a string');
  end
  fAud = [125 250 500 750 1000 1500 2000 3000 4000 6000 8000];
  switch type
   case 'slope'
    sAudProf = audprof_audprof_new();
    sAudProf.l.htl_ac = ...
	audprof_threshold_entry_add([],fAud,[10 15 30 40 45 50 65 65 75 65 65]);
    sAudProf.r.htl_ac = ...
	audprof_threshold_entry_add([],fAud,[20 15 20 30 35 35 40 55 70 65 85]);
%    sAudProf.l.acalos = dummy_acalos_l;
%    sAudProf.r.acalos = dummy_acalos_r;
   case 'flat40'
    sAudProf = audprof_audprof_flat(40);
   case 'flat50'
    sAudProf = audprof_audprof_flat(50);
   otherwise
    error('Invalid audiogram type');
  end
  sAudProf.client_id = 'TT123456';
  sAudProf.id = type;
  
function s = dummy_acalos_l
  s = [];
  s = audprof_acalos_entry_add(s,500,0.457643,0.829785,74.9837,[75 30 85 ...
		    40 60 20 90 40 45 15 95 45 30 0 100 50 35 15 55 ...
		    20 68 20 81 25 94 35 61 20 26 0 44 5 79 25 96 ...
		    35 45 15 28 0 62 20 96 45 79 25]);
  s = audprof_acalos_entry_add(s,1000,0.561393,0.890432,75.8846,[75 20 ...
		    85 35 60 20 90 45 45 5 95 40 30 0 100 45 35 0 ...
		    105 50 40 0 45 5 63 10 75 25 87 40 99 45 72 20 ...
		    45 15 58 20 85 30 98 45 45 10 58 20 72 25 85 30 98 45]);
  s = audprof_acalos_entry_add(s,2000,1.12774,1.45832,79.1485,[75 20 85 ...
		    40 60 0 90 45 65 15 95 45 100 50 76 15 83 30 90 ...
		    45 97 50 62 0 70 10 78 15 86 35 94 50 72 20 65 ...
		    20 78 25 84 30 91 45]);
  s = audprof_acalos_entry_add(s,4000,1.01754,1.2982,89.0316,[75 15 85 ...
		    25 60 0 90 25 65 0 95 30 70 0 100 30 75 15 105 ...
		    45 84 15 90 30 96 35 102 45 85 15 69 0 77 20 93 ...
		    35 101 40 85 15 69 0 77 15 93 35 101 45]);
  s = audprof_acalos_entry_add(s,6000,0.9258,3.06498,92.9758,[75 10 85 ...
		    15 60 0 90 15 65 0 95 35 70 0 100 45 75 15 101 ...
		    45 83 20 88 15 93 30 98 45 72 0 78 5 85 20 91 ...
		    25 98 40 81 20 75 5 86 15 92 25 98 45]);

function s = dummy_acalos_r
  s = [];
  s = audprof_acalos_entry_add(s,500,0.505853,0.437727,61.8088,[75 35 85 ...
		    35 60 25 90 35 45 15 95 35 30 15 100 45 15 0 105 ...
		    50 20 0 25 5 49 25 65 25 81 35 97 45 41 15 23 5 ...
		    59 20 96 40 78 25 25 5 60 25 96 35 78 25 43 20]);
  s = audprof_acalos_entry_add(s,1000,0.472,0.831115,75.8846,[75 20 85 ...
		    35 60 20 90 45 45 5 95 40 30 0 100 45 35 0 105 ...
		    50 40 0 45 5 63 10 75 25 87 40 99 45 72 20 45 ...
		    15 58 20 85 30 98 45 45 10 58 20 72 25 85 30 98 45]);
  s = audprof_acalos_entry_add(s,2000,0.608552,1.48877,72.6579,[75 35 85 ...
		    45 60 15 90 50 45 15 30 0 35 0 40 5 55 15 65 25 ...
		    75 25 85 45 42 5 53 15 64 15 75 35 86 40 44 5 ...
		    66 15 88 50 77 30 55 15]);
  s = audprof_acalos_entry_add(s,4000,0.94617,1.10556,89.7445,[75 15 85 ...
		    15 60 0 90 15 65 0 95 25 70 15 100 35 105 35 81 ...
		    25 88 25 95 35 102 45 74 0 65 0 83 15 101 35 92 ...
		    35 84 30 66 0 75 5 92 25 101 45]);
  s = audprof_acalos_entry_add(s, 6000,0.711054,2.99707,94.6282,[75 15 ...
		    85 25 60 0 90 15 65 0 95 25 70 15 100 35 101 50 ...
		    79 15 86 25 92 25 98 35 64 0 72 5 89 20 97 35 ...
		    81 20 68 0 76 10 83 25 90 25 97 30]);

  
